home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / TEXTTRAIN DEMO.bas < prev    next >
BASIC Source File  |  2000-01-01  |  7KB  |  50 lines
  1. 44  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>TEXTTRAIN DEMO<CTRL-M>--------------<CTRL-M>BEAGLE BROS.<CTRL-M>4315 SIERRA VISTA<CTRL-M>SAN DIEGO, CA 92103<CTRL-M>(714) 296-6400<CTRL-M><CTRL-D>FP
  2. 48 Z = 1:I = 176:J = 256:K = 127:O = 6:P = 7:C = 183:L = 309: DIM T(12),V(12),H(12),U(12):T(0) = Z:V(0) = Z:N = 175:R =  -16336:B$ = ":::::::":C$ = "-------------------":G =  PEEK(N) +( PEEK(I) -J *( PEEK(I) >K)) *J -631:L = L +G:C = C +G
  3. 49  REM <CTRL-M><CTRL-D>FP
  4. 50  POKE  -16300,0: TEXT : HOME : INVERSE : SPEED= 123: VTAB 6: HTAB 14: PRINT "+            +": HTAB 14: PRINT "  TEXTTRAIN!  ": HTAB 14: PRINT "+            +": NORMAL : PRINT : HTAB 14: PRINT "BY BERT KERSEY": PRINT 
  5. 55  SPEED= 255: HTAB 15: PRINT "BEAGLE BROS.": HTAB 12: PRINT "4315 SIERRA VISTA": HTAB 11: PRINT "SAN DIEGO, CA 92013": PRINT : HTAB 14: PRINT "(714) 296-6400": PRINT : PRINT : HTAB 10: PRINT "ON OUR BEAGLE BAG DISK": FOR I = 1 TO 3000: NEXT : GOTO 1360
  6. 150  NORMAL :V(J) = V(K):T(J) = T(K): VTAB V(J): HTAB T(J): PRINT " ": INVERSE : FOR I = K TO Z  STEP  -Z:V(I) = V(I -Z):T(I) = T(I -Z): VTAB V(I): HTAB T(I): PRINT  MID$ (A$,I,Z): NEXT : POKE O,T(Z) -Z: POKE P,V(Z) -Z: CALL L:T(0) =  PEEK(O) +Z:V(0) =  PEEK(P) +Z: IF F  THEN  CALL C
  7. 151  RETURN 
  8. 200  FOR M = Z TO X: GOSUB 150: NEXT : NORMAL : RETURN 
  9. 300 Y = 1:A$ = "*+BAN ": GOSUB 1202: FOR I = 0 TO J:V(I) = 18:T(I) = 26 -I: NEXT : VTAB 24: HTAB 1:T$ = " TEXTTRAIN DEMO  (C) 1981, BEAGLE BROS.": GOSUB 1250: GOSUB 1202
  10. 305 N = 7:V = 18:T = 15:T$ = "TRAIN->": GOSUB 1300:T = 27:T$ = "<-ENGINE": GOSUB 1300:N = 2:T$ = "CARS>":T = 17: GOSUB 1300:V = 14:T = 19: GOSUB 1300:T$ = "<CARS":V = 22:T = 20: GOSUB 1300
  11. 322 Y = 0: POKE 32,5: VTAB 6: HTAB Z:T$ = "KEY COMMANDS:::<CTRL-M><CTRL-M>F=FORWARD:::::<CTRL-M>R=REVERSE<CTRL-M>S=SWITCH,1-5<CTRL-M>C=COUPLE,<CTRL-M>  UNCOUPLE": GOSUB 1250: TEXT 
  12. 337 Y = 1: FLASH : VTAB 8: HTAB 6: PRINT "F": VTAB 18: HTAB 22: PRINT "<CTRL-G>NAB+*<CTRL-G>": GOSUB 1202:X = 20: GOSUB 200
  13. 350 A$ = "NAB+* ": GOSUB 1100: VTAB 8: HTAB 6: NORMAL : PRINT "F"
  14. 351 T$ = "SWITCH": VTAB 18: HTAB 32: GOSUB 1250: VTAB 18: HTAB 32: FLASH : PRINT T$: VTAB 10: HTAB 6: PRINT "S": NORMAL : FOR M = 1 TO 1750: NEXT 
  15. 352  VTAB 18: HTAB 32: PRINT " // /:<CTRL-G>": HTAB 34: PRINT " /<CTRL-G>": VTAB 10: HTAB 6: PRINT "S": FLASH : VTAB 9: HTAB 6: PRINT "R"
  16. 355 X = 21: GOSUB 200: VTAB 9: HTAB 6: PRINT "R": FLASH : VTAB 11: HTAB 6: PRINT "C": VTAB 22: GOSUB 1350:V = 20:T = 18:N = 3:T$ = "COUPLE": GOSUB 1300: VTAB V: HTAB T: PRINT T$
  17. 400 A$ = "*+BANGSA ": GOSUB 1202:U = 22:H = 24:D =  -Z: GOSUB 1240: VTAB V: HTAB T: PRINT B$: GOSUB 1202: VTAB 11: HTAB 6: PRINT "C"
  18. 450 F = Z:V = 10:T = 24:T$ = "CLOCK->": VTAB 9: HTAB 31: INVERSE : PRINT ":     :": HTAB 31: PRINT "  0:00 ": HTAB 31: PRINT ":     :": GOSUB 1300: VTAB V: HTAB T: PRINT B$: FOR I = Z TO 60: CALL C: FOR M = Z TO 3:S =  PEEK(R): NEXT : NEXT 
  19. 590 Y = 0: POKE 32,5: VTAB 6:T$ = "THE OBJECT IS TO<CTRL-M>COUPLE TOGETHER<CTRL-M>A WORD SUCH AS<CTRL-M>BANANAS": GOSUB 1250: HTAB 1: INVERSE : PRINT "BANANAS";:T$ = " IN<CTRL-M>THE FASTEST:<CTRL-M>POSSIBLE:<CTRL-M>TIME.:::::": GOSUB 1250: TEXT :Y = 1
  20. 600 X = 21: GOSUB 200:A$ = "ASGNAB+* ": GOSUB 1100: GOSUB 1202: VTAB 18: HTAB 33: PRINT "  <CTRL-G>": HTAB 34: PRINT "-+<CTRL-G>": GOSUB 1202
  21. 602 X = 13: GOSUB 200: GOSUB 1350:A$ = "*+BAN ": GOSUB 1100: GOSUB 1202:U = 18:H = 33:D =  -Z: GOSUB 1240:X = 45: GOSUB 200
  22. 610 A$ = "NAB+* ": GOSUB 1202: VTAB 13: HTAB 16: PRINT "+-<CTRL-G>": HTAB 17: PRINT "  <CTRL-G>": GOSUB 1202: FOR I = 0 TO J:T(I) = 12 -I: NEXT :X = 12: GOSUB 200
  23. 640  GOSUB 1350:A$ = "*+BANAN ": GOSUB 1202:U = 14:H = 17:D = Z: GOSUB 1240:X = 23: GOSUB 200
  24. 670 A$ = "NANAB+* ": GOSUB 1202: VTAB 17: HTAB 13: PRINT "-<CTRL-G>": HTAB 13: PRINT "  <CTRL-G>": HTAB 12: PRINT "-": GOSUB 1202
  25. 680  GOSUB 1100:X = 24: GOSUB 200: GOSUB 1350
  26. 690 A$ = "*+BANAN ": GOSUB 1100:A$ = "*+BANANAS ": GOSUB 1202: FOR I = 7 TO 9:V(I) = 18:T(I) = I +18: NEXT 
  27. 700 U = 18:H = 17:D = Z: GOSUB 1240:F = 0
  28. 710  VTAB 17: HTAB 13: PRINT " <CTRL-G>": HTAB 13: PRINT "//<CTRL-G>": HTAB 12: PRINT "+": GOSUB 1202
  29. 720 X = 3: GOSUB 200
  30. 725  VTAB 17: HTAB 13: FLASH : PRINT "@";: HTAB 15: PRINT "@": HTAB 14: PRINT "/": HTAB 13: PRINT "@";: HTAB 15: PRINT "@"
  31. 730  FOR I = Z TO 7: FOR J = Z TO 8:S =  PEEK(R): NEXT : FOR J = Z TO 40: NEXT : NEXT : FOR J = Z TO 99:S =  PEEK(R) + PEEK(R): NEXT 
  32. 740 V = 20:T = 11:T$ = "DERAIL!":N = 8: GOSUB 1300: VTAB V: HTAB T: PRINT B$: GOSUB 1202: GOSUB 1202: GOTO 1360
  33. 1100  FOR I = 0 TO J:U(I) = V(J -I):H(I) = T(J -I): NEXT : FOR I = 0 TO J:V(I) = U(I):T(I) = H(I): NEXT : RETURN 
  34. 1202  FOR X = Z TO 33: IF F >0  AND X - INT(X/12) *12 = 0  THEN  CALL C
  35. 1205  NEXT :J =  LEN(A$):K = J -Z: NORMAL : RETURN 
  36. 1234  FOR I = Z TO 150: NEXT : RETURN 
  37. 1240  FOR I = 0 TO J:V(I) = U:T(I) = H +D *(I +D): IF I >2  AND I < >J  THEN  INVERSE : VTAB V(I): HTAB T(I): PRINT  MID$ (A$,I,Z): FOR M = Z TO 5:S =  PEEK(R): NEXT M
  38. 1241  NEXT : GOSUB 150: GOSUB 1202: RETURN 
  39. 1250  FOR I = Z TO  LEN(T$):M$ =  MID$ (T$,I,Z): IF M$ = "<CTRL-M>"  THEN 1257
  40. 1252  INVERSE : PRINT M$;: IF M$ < >" "  AND Y  THEN  FOR W = Z TO 5:S =  PEEK(R): NEXT 
  41. 1253  FOR W = Z TO 20: NEXT : NORMAL : HTAB  PEEK(36)
  42. 1257  PRINT M$;: NEXT : RETURN 
  43. 1300  VTAB V: HTAB T: GOSUB 1250: FOR M = Z TO N: VTAB V: HTAB T: PRINT T$: GOSUB 1234: GOSUB 1234: VTAB V: HTAB T: PRINT  SPC(  LEN(T$)): GOSUB 1234: NEXT : RETURN 
  44. 1350  NORMAL : FOR X = Z TO K -2: VTAB V(X): HTAB T(X): PRINT  MID$ (A$,X,1): GOSUB 1234: NEXT : RETURN 
  45. 1360 F = 0: CALL G +284:A$ = B$ +B$ +B$ +B$ +B$ +":::::": FOR I = 13 TO 24: VTAB I: PRINT A$;: VTAB 25 -I: PRINT A$;: NEXT 
  46. 1390  VTAB Z: HTAB 6: PRINT "+--";C$;"+------+": HTAB 5: PRINT "/"; SPC( 20);"//        \": HTAB 4: PRINT "/ +";C$;"+ +------+ \": HTAB 3: PRINT "/ /";: HTAB 25: PRINT "/ /";B$;":\ \": HTAB 2: PRINT "/ /";: HTAB 24: PRINT "/ /";B$;":::\ \"
  47. 1440  PRINT "+ +::DEMONSTRATION::::/ /";: HTAB 38: PRINT "+ +";: PRINT "! !::--------------::/ /";: HTAB 38: PRINT "! !";: PRINT "! !::ACTUAL GAME IS:/ /";: HTAB 38: PRINT "! !";: PRINT "! !::KEYBOARD::::::/ /";: HTAB 38: PRINT "! !";
  48. 1480  PRINT "! !::CONTROLLED.::/ /";: HTAB 38: PRINT "! !";: PRINT "! !";B$;":::::::/ /";: HTAB 38: PRINT "! !";: PRINT "! !";B$;"::::::/ /";: HTAB 38: PRINT "! !";: PRINT "! !";B$;":::::/ +---------------+";: HTAB 38: PRINT "! !";
  49. 1520  PRINT "+ +";B$;"::::/ //     ANEQXXO   +:::+ +";: PRINT ":\ \";B$;"::/ +-----------------+";: HTAB 37: PRINT "/ /": PRINT "::\ \";B$;"/ /";: HTAB 36: PRINT "/ /": PRINT ":::\ +-----+ +-";C$;"+ /": PRINT "::::\       //       NAB";
  50. 1560  INVERSE : PRINT "+*";: NORMAL : PRINT  SPC( 9);"/": PRINT ":::::+-+---+-";C$;"+-+": PRINT "::::::\ \";: HTAB 32: PRINT "/ /": HTAB 8: PRINT "\ +-";C$;"+ /": HTAB 9: PRINT "\     RFASG"; SPC( 12);"/": HTAB 10: PRINT "+-";C$;"+": GOTO 300